home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / H406.ZIP / TOTDEM11.ZIP / EXTDEM3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  869b  |  32 lines
  1. Program ExtendedDemoThree;
  2. {EXTDEM3 - this program shows how to use the MonoWriteOBJ object
  3.  developed in the ExtFast unit. The demo is actually a simple
  4.  adaptation of the browse demo file DEMBR1}
  5.  
  6. Uses DOS,CRT,
  7.      totINPUT, totFAST,totLIST, totSTR, ExtFast;
  8.  
  9. var
  10.    WhiteWrite: MonoWriteOBJ;
  11.    BWin: BrowseArrayOBJ;
  12.    StringList: array[1..26] of string[100];
  13.    I : integer;
  14.  
  15. begin
  16.    WhiteWrite.Init;
  17.    Screen.AssignWriteOBJ(WhiteWrite);
  18.    for I := 1 to 26 do  {first assign something to the string array}
  19.       StringList[I] := 'Line '+IntToStr(I)+': '+replicate(80,char(I+64));
  20.    ShadowTot^.SetShadowStyle(downright,red,chr(219));
  21.    Screen.Clear(green,' '); {paint the screen}
  22.    Key.SetFast;
  23.    Key.SetClick(true);
  24.    with BWin do
  25.    begin
  26.       Init;
  27.       AssignList(StringList,26,100);
  28.       Go;
  29.       Done;
  30.    end;
  31. end.
  32.